perm filename E.DIF[E,ALS]4 blob
sn#158808 filedate 1975-05-16 generic text, type T, neo UTF8
1) E[CSP,SYS] vs. 2) E.35[CSP,SYS] SRCCOM 05-16-75 15:18 PAGES 1,1
******** E[CSP,SYS] **** PAGE 1 LINE 77
1) C00197 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2,RLDCHK
1) C00203 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
1) C00205 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
1) C00207 00078 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
1) C00208 00079 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV, TSINT, TSNINT
1) C00211 00080 FSINI, FSINI1, MORCOR
1) C00214 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
1) C00215 00082 FSNEWT, FSNEWP, FSNEW
1) C00216 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
1) C00218 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
1) C00220 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
1) C00222 00086 FSBLT, POPTJ, FSBLT1
1) C00223 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
1) C00224 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
1) C00226 00089 FSGIVE, FSGIV1, FSGIV2
1) C00227 00090 CORCHK, CRUNCH, CMPACT
1) C00229 00091 ENDSET, ENDFIX
1) C00230 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
1) C00232 00093 FUCHK, MOVIT, MOVTX
1) C00234 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
1) C00236 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
1) C00239 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
1) C00241 00097 SAVIT
1) C00242 00098 CHECK, CHECK1, CHECK2
1) C00243 00099 CHKDIR, CHKDPL
1) C00245 00100
1) C00247 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
1) C00248 00102 CHKPAG, CHKPGP
1) C00249 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
1) C00251 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
1) C00252 00105 CHKATT, CHKNAT
1) C00253 00106 CTAB 0-37
1) C00257 00107 CTAB 40-77
1) C00259 00108 CTAB 100-137
1) C00261 00109 CTAB 140-177
1) C00263 00110 GETDIR
1) C00267 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
1) C00269 00112 DIRLIN, DIRLUP, DIRDON
1) C00272 00113 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
1) C00275 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
1) C00277 00115 COPCOR, COPCHK, YESCHK, COPCMD
1) C00278 00116 FORMAT, FMTOK, FMTDSP
1) C00284 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
1) C00285 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
1) C00287 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
1) C00289 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
1) C00291 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX
1) E[CSP,SYS] vs. 2) E.35[CSP,SYS] SRCCOM 05-16-75 15:18 PAGES 1,1
1) C00293 00122 CREATE, CREAT2, CTEXT
1) C00295 00123 RDPAGE, RDPGOK, RDSPAG, RDPAG0
1) C00297 00124 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
1) C00299 00125 RDLCR, RDLLF, NUMSTR,NUMSIX,OCTSTR,OCTASC
1) C00302 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
1) C00304 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
1) C00306 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
1) C00308 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
1) C00309 00130 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
1) C00311 00131 DIRGET, DIRGL, DGEND, DRGSET
1) C00313 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
1) C00315 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
1) C00317 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
1) C00319 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
1) C00321 00136 IDNUL, IDDON, IDDONS
1) C00323 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
1) C00324 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
1) C00326 00139 DISPLAY DATA STORAGE
1) C00328 00140 MORE DISPLAY STORAGE
1) C00329 00141 HEADERS & TRAILERS
1) C00330 00142 DPYINI, DPYCHK
1) C00333 00143 DPYI2, NODPY, WIPE, IWIPE
1) C00335 00144 SETSCR, NMVARR, MOVARR, SETARR
1) C00337 00145 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
1) C00339 00146 DISP, DISP0, DISP1, DISP2
1) C00341 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
1) C00343 00148 DISPAT, DISPAX
1) C00344 00149 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
1) C00346 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
1) C00347 00151 IIIARR, IIIAR2, IIIAR3
1) C00349 00152 LESET, LEADJ, LECLR
1) C00350 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
1) C00352 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
1) C00353 00155 DDISP, DDISP2
1) C00354 00156 DOARR, DOAR2, OFFARR, ONARR
1) C00355 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
1) C00357 00158 DSPSAT, DSPSAX
1) C00358 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
1) C00360 00160 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
1) C00362 00161 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
1) C00363 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
1) C00365 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
1) C00366 00164 WRPX3, WRPX4
1) C00367 00165 WRPOK, WRTIT, WRT0
1) C00368 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
1) C00370 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
1) C00372 00168 WRPM, BTAB2
1) C00374 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
1) E[CSP,SYS] vs. 2) E.35[CSP,SYS] SRCCOM 05-16-75 15:18 PAGES 1,1
1) C00375 00170 TV, RSYS, RUN, RUN1
1) C00378 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
1) C00379 00172 SEARCH ROUTINES
1) C00381 00173 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
1) C00393 00174 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT
1) C00400 00175 FINDIT, FOUND, FNDMOV, FNDERR
1) C00404 00176 FIND
1) C00406 00177 DIRSRC, DFERR, SRCDF, SDFCR
1) C00408 00178 SSET, SSET2
1) C00409 00179 SCOMP, SCOMPX, SCOMPR
1) C00411 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
1) C00413 00181 SPARSE
1) C00414 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
1) C00416 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
1) C00418 00184 SSCLP, SSCDSP
1) C00419 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
1) C00421 00186 SGNOT
1) C00422 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
1) C00424 00188 SBBRCH, SBBR2
1) C00425 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
1) C00426 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
1) C00428 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
1) C00430 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
1) C00432 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
1) C00433 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
1) C00435 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
1) C00437 00196 SCCOM, SCCNOT
1) C00438 00197 SCCBIT
1) C00439 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
1) C00441 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
1) C00443 00200 SCGEN
1) C00444 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
1) C00446 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
1) C00448 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
1) C00450 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
1) C00452 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
1) C00454 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
1) C00456 00207 SRCPAG, SRCPG1
1) C00458 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
1) C00459 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
1) C00460 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
1) C00461 00211 SRCSET, SRCST1, SRCSTL, SRCST2
1) C00462 00212 SCALL, SRCHX, SRCHLX
1) C00463 00213 SCNBAK, SCNBKL
1) C00465 00214 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
1) C00467 00215 SRCFF, SFFNUL, SGTACS, SRTACS
1) C00468 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
1) C00469 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
1) E[CSP,SYS] vs. 2) E.35[CSP,SYS] SRCCOM 05-16-75 15:18 PAGES 1,1
1) C00478 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
1) C00481 00219 JUSMAR
1) C00486 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
1) C00489 00221 NXTLIN, NXTLN2, JTAB, NXTBL
1) C00495 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
1) C00499 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
1) C00501 00224 JDFIN
1) C00504 00225 JDFIN2, JSET, JSET2
1) C00506 00226 INDENT,ALINE,CENTER,JLEFT
1) C00509 00227 LEFMAR,SHIFTY
1) C00513 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
1) C00515 00229 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
1) C00517 00230 ZDATA,ZSIX,ZBLT,ZEDFIL,ZLIST,EXIST
1) C00529 00231 LAMBDA,EPSIL,NWFILE,HOME,QUERY,HOMEG,LAMBDG
1) C00537 00232 ********* BEG OF ESSAY DEFS *********
1) C00556 00233 SUBSTR
1) C00567 00234 SPOOLC
1) C00572 00235 BEGIN SPSUB
1) C00579 00236 TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
1) C00586 00237 TELLME,FBI
1) C00598 00238 PDL, PATCH, PAT, ZVARS, LEGTAB
1) C00600 ENDMK
1) C⊗;
*** E.35[CSP,SYS] *** PAGE 1 LINE 77
2) C00197 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2
2) C00200 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
2) C00202 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
2) C00204 00078 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
2) C00205 00079 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV, TSINT, TSNINT
2) C00208 00080 FSINI, FSINI1, MORCOR
2) C00211 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
2) C00212 00082 FSNEWT, FSNEWP, FSNEW
2) C00213 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
2) C00215 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
2) C00217 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
2) C00219 00086 FSBLT, POPTJ, FSBLT1
2) C00220 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
2) C00221 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
2) C00223 00089 FSGIVE, FSGIV1, FSGIV2
2) C00224 00090 CORCHK, CRUNCH, CMPACT
2) C00226 00091 ENDSET, ENDFIX
2) C00227 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
2) C00229 00093 FUCHK, MOVIT, MOVTX
2) C00231 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
2) C00233 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
2) C00236 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
2) C00238 00097 SAVIT
2) C00239 00098 CHECK, CHECK1, CHECK2
1) E[CSP,SYS] vs. 2) E.35[CSP,SYS] SRCCOM 05-16-75 15:18 PAGES 1,1
2) C00240 00099 CHKDIR, CHKDPL
2) C00242 00100
2) C00244 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
2) C00245 00102 CHKPAG, CHKPGP
2) C00246 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
2) C00248 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
2) C00249 00105 CHKATT, CHKNAT
2) C00250 00106 CTAB 0-37
2) C00254 00107 CTAB 40-77
2) C00256 00108 CTAB 100-137
2) C00258 00109 CTAB 140-177
2) C00260 00110 GETDIR
2) C00261 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
2) C00263 00112 DIRLIN, DIRLUP, DIRDON
2) C00266 00113 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
2) C00269 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
2) C00271 00115 COPCOR, COPCHK, YESCHK, COPCMD
2) C00272 00116 FORMAT, FMTOK, FMTDSP
2) C00273 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
2) C00274 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
2) C00276 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
2) C00278 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
2) C00280 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX
2) C00282 00122 CREATE, CREAT2, CTEXT
2) C00284 00123 RDPAGE, RDPGOK, RDSPAG, RDPAG0
2) C00286 00124 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
2) C00288 00125 RDLCR, RDLLF, NUMSTR,NUMSIX,OCTSTR,OCTASC
2) C00291 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
2) C00293 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
2) C00294 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
2) C00296 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
2) C00297 00130 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
2) C00299 00131 DIRGET, DIRGL, DGEND, DRGSET
2) C00301 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
2) C00303 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
2) C00305 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
2) C00307 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
2) C00309 00136 IDNUL, IDDON, IDDONS
2) C00311 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
2) C00312 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
2) C00314 00139 DISPLAY DATA STORAGE
2) C00316 00140 MORE DISPLAY STORAGE
2) C00317 00141 HEADERS & TRAILERS
2) C00318 00142 DPYINI, DPYCHK
2) C00321 00143 DPYI2, NODPY, WIPE, IWIPE
2) C00323 00144 SETSCR, NMVARR, MOVARR, SETARR
2) C00325 00145 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
2) C00327 00146 DISP, DISP0, DISP1, DISP2
1) E[CSP,SYS] vs. 2) E.35[CSP,SYS] SRCCOM 05-16-75 15:18 PAGES 1,1
2) C00329 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
2) C00331 00148 DISPAT, DISPAX
2) C00332 00149 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
2) C00334 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
2) C00335 00151 IIIARR, IIIAR2, IIIAR3
2) C00337 00152 LESET, LEADJ, LECLR
2) C00338 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
2) C00340 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
2) C00341 00155 DDISP, DDISP2
2) C00342 00156 DOARR, DOAR2, OFFARR, ONARR
2) C00343 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
2) C00345 00158 DSPSAT, DSPSAX
2) C00346 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
2) C00348 00160 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
2) C00350 00161 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
2) C00351 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
2) C00353 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
2) C00354 00164 WRPX3, WRPX4
2) C00355 00165 WRPOK, WRTIT, WRT0
2) C00356 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
2) C00358 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
2) C00360 00168 WRPM, BTAB2
2) C00362 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
2) C00363 00170 TV, RSYS, RUN, RUN1
2) C00366 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
2) C00367 00172 SEARCH ROUTINES
2) C00369 00173 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
2) C00381 00174 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT
2) C00388 00175 FINDIT, FOUND, FNDMOV, FNDERR
2) C00392 00176 FIND
2) C00394 00177 DIRSRC, DFERR, SRCDF, SDFCR
2) C00396 00178 SSET, SSET2
2) C00397 00179 SCOMP, SCOMPX, SCOMPR
2) C00399 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
2) C00401 00181 SPARSE
2) C00402 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
2) C00404 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
2) C00406 00184 SSCLP, SSCDSP
2) C00407 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
2) C00409 00186 SGNOT
2) C00410 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
2) C00412 00188 SBBRCH, SBBR2
2) C00413 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
2) C00414 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
2) C00416 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
2) C00418 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
2) C00420 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
2) C00421 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
1) E[CSP,SYS] vs. 2) E.35[CSP,SYS] SRCCOM 05-16-75 15:18 PAGES 1,1
2) C00423 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
2) C00425 00196 SCCOM, SCCNOT
2) C00426 00197 SCCBIT
2) C00427 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
2) C00429 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
2) C00431 00200 SCGEN
2) C00432 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
2) C00434 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
2) C00436 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
2) C00438 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
2) C00440 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
2) C00442 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
2) C00444 00207 SRCPAG, SRCPG1
2) C00446 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
2) C00447 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
2) C00448 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
2) C00449 00211 SRCSET, SRCST1, SRCSTL, SRCST2
2) C00450 00212 SCALL, SRCHX, SRCHLX
2) C00451 00213 SCNBAK, SCNBKL
2) C00453 00214 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
2) C00455 00215 SRCFF, SFFNUL, SGTACS, SRTACS
2) C00456 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
2) C00457 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
2) C00466 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
2) C00469 00219 JUSMAR
2) C00474 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
2) C00477 00221 NXTLIN, NXTLN2, JTAB, NXTBL
2) C00483 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
2) C00487 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
2) C00489 00224 JDFIN
2) C00492 00225 JDFIN2, JSET, JSET2
2) C00494 00226 INDENT,ALINE,CENTER,JLEFT
2) C00497 00227 LEFMAR,SHIFTY
2) C00501 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
2) C00503 00229 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
2) C00505 00230 ZDATA,ZSIX,ZBLT,ZEDFIL,ZLIST,EXIST
2) C00516 00231 LAMBDA,EPSIL,NWFILE,HOME,QUERY,HOMEG,LAMBDG
2) C00524 00232 ********* BEG OF ESSAY DEFS *********
2) C00543 00233 SUBSTR
2) C00554 00234 SPOOLC
2) C00559 00235 BEGIN SPSUB
2) C00566 00236 TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
2) C00573 00237 TELLME,FBI
2) C00585 00238 PDL, PATCH, PAT, ZVARS, LEGTAB
2) C00587 ENDMK
2) C⊗;
1) E[CSP,SYS] vs. 2) E.35[CSP,SYS] SRCCOM 05-16-75 15:18 PAGES 1,1
******** E[CSP,SYS] **** PAGE 2 LINE 13
1) APR 10 1975 E.33(P487) APR 14 E.34(P493) APR.18 1975 E.35(P496)
1) E.32 contains code for TELLME but no automatic calling
*** E.35[CSP,SYS] *** PAGE 2 LINE 13
2) APR 10 1975 E.33(P487) APR 14 E.34
2) E.32 contains code for TELLME but no automatic calling
******** E[CSP,SYS] **** PAGE 2 LINE 19
1) E.36 Warnings on formatting XGP, SOS and BINARY files
1) />
*** E.35[CSP,SYS] *** PAGE 2 LINE 19
2) />
******** E[CSP,SYS] **** PAGE 2 LINE 133
1) DSKCH←←5 ;Used to write into bug file TELLME.001[E,ALS] , .002 etc.
1) SWP←←3
*** E.35[CSP,SYS] *** PAGE 2 LINE 132
2) DSKCH←←5 ;Used to write into bug file BUGFIL.LST[ALS,ALS]
2) SWP←←3
******** E[CSP,SYS] **** PAGE 75 LINE 1
1) ;RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2,RLDCHK
1) ;HERE IF WE FOUND A RUBOUT IN THE INPUT FILE.
*** E.35[CSP,SYS] *** PAGE 75 LINE 1
2) ;RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2
2) ;HERE IF WE FOUND A RUBOUT IN THE INPUT FILE.
******** E[CSP,SYS] **** PAGE 75 LINE 15
1) JRST [AOS RLDRUB#↔POP P,C↔JRST -3(C)]
1) ;NO. WAS R-O FROM FILE. RETURN AND IGNORE.
1) MOVE T,IBLK
1) CAIL T,2 ;Test after 3 blocks have been read
1) PUSHJ P,RLDCHK
1) XCT %IN ;TIME TO READ MORE. (IN UUO)
*** E.35[CSP,SYS] *** PAGE 75 LINE 15
2) JRST [POP P,C↔JRST -3(C)] ;NO. WAS R-O FROM FILE. RETURN AND IGNORE.
2) XCT %IN ;TIME TO READ MORE. (IN UUO)
******** E[CSP,SYS] **** PAGE 75 LINE 38
1) CAIGE C,600 ;For the case of short files
1) PUSHJ P,RLDCHK
1) TROE F,EOF ;SET FLAG FOR EOF
*** E.35[CSP,SYS] *** PAGE 75 LINE 34
1) E[CSP,SYS] vs. 2) E.35[CSP,SYS] SRCCOM 05-16-75 15:18 PAGES 75,75
2) TROE F,EOF ;SET FLAG FOR EOF
******** E[CSP,SYS] **** PAGE 75 LINE 74
1) ;Here we check to see if it is really safe to complete the formatting of the
1) ;file being loaded.
1) RLDCHK: SKIPE RLDFLG#
1) POPJ P,
1) SETZM TYOPNT
1) MOVE T,RLDRUB
1) JUMPN T,RLDCK2
1) SKIPN T,SOSBIN
1) POPJ P, ;Seems to be a normal source file
1) SUB T,SOSPAG
1) SUB T,SOSLIN
1) JUMPN T,RLDCK2 ;Not a simple SOS file
1) SETOM RLDFLG
1) OUTSTR [ASCIZ /
1) You are formatting an SOS file
1) /]
1) RLDCK1: MOVE T,EDFIL+3 ;Get file PPN
1) JUMPN T,.+2
1) MOVE T,PPN ;If no file PPN check alias
1) CAMN T,RPPN ;Compare with users name
1) POPJ P,
1) OUTSTR [ASCIZ /Are you sure that /]
1) HLLZ A,T
1) PUSHJ P,PNTYO
1) TYPCHR ","
1) HRLZ A,T
1) PUSHJ P,PNTYO
1) OUTSTR [ASCIZ / will approve? (Y or N) /]
1) PUSHJ P,YESCHK
1) POPJ P,
1) RLDCKX:
1) RELEAS DSKO,1 ;Inhibit closing this file to preserve old copy
1) CLOSE DSKI, ;Make sure it is not tampered with
1) SUB P,[1,,1]
1) JRST FNF2
1) RLDCK2: MOVE T,SOSLI2
1) JUMPN T,RLDCK3
1) SKIPN RLDRUB
1) POPJ P,
1) OUTSTR [ASCIZ /
1) This file has several RUBOUT symbols and is probably an XGP file.
1) Do you really want to edit it and wipe these all out? (Y or N) /]
1) SKIPA
1) RLDCK3: OUTSTR [ASCIZ /
1) E[CSP,SYS] vs. 2) E.35[CSP,SYS] SRCCOM 05-16-75 15:18 PAGES 75,76
1) This may be a binary file that would be hopelessly garbaged by formatting.
1) Do you really want to format it (Y or N)? /]
1) SETOM RLDFLG
1) RLDASK: PUSHJ P,YESCHK
1) JRST RLDCK1
1) JRST RLDCKX
1) ;EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
*** E.35[CSP,SYS] *** PAGE 76 LINE 1
2) ;EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
******** E[CSP,SYS] **** PAGE 110 LINE 3
1) GETDIR: MOVEI DSP,GDDSP ;Initial dispatch table on page 113
1) FOR X IN (DIR,PAGES,FIRPAG,CURPAG,RLDRUB,SOSBIN#,SOSLIN#,SOSLI2#,SOSPAG#){SETZM X↔}
1) MOVEI T,XDIRCH
*** E.35[CSP,SYS] *** PAGE 110 LINE 3
2) GETDIR: MOVEI DSP,GDDSP
2) FOR X IN (DIR,PAGES,FIRPAG,CURPAG){SETZM X↔}
2) MOVEI T,XDIRCH
******** E[CSP,SYS] **** PAGE 111 LINE 11
1) ; JUMPN E,NODIRT ;Is it a binary file?
1) MOVEI D,DIR
*** E.35[CSP,SYS] *** PAGE 111 LINE 11
2) MOVEI D,DIR
******** E[CSP,SYS] **** PAGE 111 LINE 16
1) ; JRST NODIRT ;Is it a binary file?
1) JRST NODIR
1) JUMPE A,NODIR
1) ; JUMPE A,NODIRT ;Still check if binary
1) SKIPN @SRCFIL+4
*** E.35[CSP,SYS] *** PAGE 111 LINE 15
2) JRST NODIR
2) JUMPE A,NODIR
2) SKIPN @SRCFIL+4
******** E[CSP,SYS] **** PAGE 116 LINE 22
1) SETZM RLDFLG ;Used to limit repeating formatting check
1) PUSHJ P,SETI
*** E.35[CSP,SYS] *** PAGE 116 LINE 22
2) PUSHJ P,SETI
******** E[CSP,SYS] **** PAGE 118 LINE 36
1) E[CSP,SYS] vs. 2) E.35[CSP,SYS] SRCCOM 05-16-75 15:18 PAGES 118,118
1) MOVEI DSP,MD1DSP ;Dispatch table on page 119
1) MOVE T,[440700,,T]
*** E.35[CSP,SYS] *** PAGE 118 LINE 36
2) MOVEI DSP,MD1DSP
2) MOVE T,[440700,,T]
******** E[CSP,SYS] **** PAGE 119 LINE 15
1) MDIL1A: MOVEI DSP,MD2DSP ;Also set to this table on page 118
1) MOVEI T,MD2CR
*** E.35[CSP,SYS] *** PAGE 119 LINE 15
2) MDIL1A: MOVEI DSP,MD2DSP
2) MOVEI T,MD2CR
******** E[CSP,SYS] **** PAGE 120 LINE 43
1) MD2DSP: JSP C,RDLNUL ;DSP set for this dispatch table on page 121
1) PUSHJ P,RLD
*** E.35[CSP,SYS] *** PAGE 120 LINE 43
2) MD2DSP: JSP C,RDLNUL
2) PUSHJ P,RLD
******** E[CSP,SYS] **** PAGE 121 LINE 17
1) SKIPA DSP,[MDCRCK] ;Table below
1) MD3CR0: MOVEI DSP,MD2DSP ;Table on page 120
1) MD3CR1: GETCH2 H,G
*** E.35[CSP,SYS] *** PAGE 121 LINE 17
2) SKIPA DSP,[MDCRCK]
2) MD3CR0: MOVEI DSP,MD2DSP
2) MD3CR1: GETCH2 H,G
******** E[CSP,SYS] **** PAGE 127 LINE 15
1) AOS SOSBIN ;To count total references to SOSCK2
1) TDNN T,(G)
*** E.35[CSP,SYS] *** PAGE 127 LINE 15
2) TDNN T,(G)
******** E[CSP,SYS] **** PAGE 127 LINE 23
1) JRST [AOS SOSLI2↔JRST 2,@[20000,,(Q)]]
1) AOS SOSLIN
1) AOJA G,.+2
*** E.35[CSP,SYS] *** PAGE 127 LINE 22
2) JRST 2,@[20000,,(Q)]
2) AOJA G,.+2
1) E[CSP,SYS] vs. 2) E.35[CSP,SYS] SRCCOM 05-16-75 15:18 PAGES 127,127
******** E[CSP,SYS] **** PAGE 127 LINE 32
1) AOS SOSPAG ;To count SOS pages
1) SKIPGE (G)
*** E.35[CSP,SYS] *** PAGE 127 LINE 30
2) SKIPGE (G)
******** E[CSP,SYS] **** PAGE 230 LINE 51
1) MOVEM T,ZDATAN ;Save to permit back-up if real trouble
1) MOVE T,ZINDEX ;Get ready to save current file info.
1) MOVEM T,ZOLDX ;ZOLDX2 used if new file found but then not used
1) TLO F,ZATT ;To preserve attach status
*** E.35[CSP,SYS] *** PAGE 230 LINE 51
2) MOVEM T,ZDATAN ;Save to permit back-up if trouble
2) MOVE T,ZINDEX ;Get ready to save current file info.
2) MOVEM T,ZOLDX ;ZOLDX may be used to return if new file not found
2) TLO F,ZATT ;To preserve attach status